Sub 매크로샘플()

    Dim i As Long
    
    For i = 1 To 10

        Range("B3").Value = Range("B3").Value + i

    Next

End Sub